home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / text / edit / BlacksEditor.lha / BlacksEditor / Rexx / CountWords.bed < prev    next >
Text File  |  1997-12-03  |  406b  |  32 lines
  1. /*
  2. ** $VER: CountWords.bed 1.0 (02.01.96)
  3. **
  4. ** Count the number of words in the document
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. SetDisplayLock ON
  12. SetInputLock ON
  13.  
  14. SetBookmark 0
  15. SetStatusBar "Counting..."
  16.  
  17. count = 0
  18. MoveSOF
  19.  
  20. DO UNTIL RC ~= 0
  21.     MoveNextWord
  22.     count = count + 1
  23. END
  24.  
  25. MoveBookmark 0
  26. ClearBookmark 0
  27.  
  28. SetDisplayLock OFF
  29. SetInputLock OFF
  30.  
  31. SetStatusBar "Counted " || count || " words"
  32.